home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Georgia Wildfire Prevention
/
Georgia Wildfire Prevention.iso
/
pc
/
media
/
dirs
/
BackUp
/
WildFire.dir
/
00009_Script_AnswerButton Behavior
< prev
next >
Wrap
Text File
|
2002-10-15
|
1KB
|
57 lines
--ANSWER BUTTON BEHAVIOR--
property ButtonAnswer, RollOvr, ButtonSound, SpNum, MyNum
--Captures the spritenumber.
on new me
SpNum = me.spritenum
MyNum=sprite(SpNum).member.number
end
on getpropertydescriptionlist me,
set plist= [\
#ButtonAnswer: [#comment: "Select the button answer: ", #format: #string, #range: ["True", "False", "A", "B", "C", "D"], #default: "True"],\
#ButtonSound:[#comment: "What sound would you like to play when the button is pressed?",#format:#string,#default:"Click"],\
#RollOvr: [#comment: "Which member would you like to use for the rollover?", #format: #string, #default: ""]\
]
return plist
end
--Reports that it has been pushed and sends the answer.
on mousedown me
if soundbusy(2) = 0 then
if ButtonSound <> "" then
sound(2).play(member(ButtonSound))
end if
sendallsprites (#ClickedButton, ButtonAnswer)
sendallsprites (#Done)
else
nothing
end if
end
on mouseupoutside me
sprite(SpNum).membernum = member(MyNum).number
end
--This is for the rollover.
on mouseenter me
sprite(SpNum).membernum = member(RollOvr).number
sprite(SpNum).cursor = 280
updateStage
end
on mouseleave me
sprite(SpNum).membernum = member(MyNum).number
sprite(SpNum).cursor = 293
updateStage
end